#!/usr/bin/perl

use CGI qw(:standard);
use XML::Writer; 





my $palabra = param('palabra'); 


print header( -type => 'application/xhtml+xml' );

  my $writer = new XML::Writer();  # will write to stdout 
  $writer->startTag("tupalabra"); 
  $writer->characters($palabra); 
  $writer->endTag("tupalabra"); 
  $writer->end();

print <<EOC;
EOC
